home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / funfont2.3 / bin / misc / fontinstall < prev    next >
Text File  |  1981-05-07  |  4KB  |  112 lines
  1. ;***********************************************************************
  2. ; FunFont Font installation script (v1.0)
  3. ; written by Andrew J Bailey (Carbon)
  4. ; © CREATIVE DESIGN 1997
  5. ;***********************************************************************
  6.  
  7. ;PROCEDURES
  8. ;**********
  9.  
  10.  
  11. (procedure preview (
  12.  (set #speak "select a font, to install.")
  13.  (talk)
  14.  (message "\nYou are now required to select a font to install.\n\n"
  15.           "To help you choose an appropriate font,\n"
  16.           "a preview follows...\n\n"
  17.           "Fonts are identified by their index number 1-12\n\n"
  18.           "Press PROCEED to continue.")
  19.  
  20.  (run "run >NIL: <NIL: sys:utilities/multiview images/FontPreview.pic")
  21. ))
  22.  
  23. ;***********************************************************************
  24.  
  25. (procedure font (
  26.  (set #speak "Please note the index numbers, displayed in wite.")
  27.  (talk)
  28.  (set @choice
  29.  (askchoice
  30.  (prompt "\nSelect the font you wish to install...\n")
  31.  (choices ("01  11P/9W/H")
  32.           ("02  11P/7W/H")
  33.           ("03  11P/7W/M")
  34.           ("04   9P/7W/M")
  35.           ("05   9P/6W/M")
  36.           ("06   9P/5W/M")
  37.           ("07   9P/5W/L")
  38.           ("08   9P/4W/L")
  39.           ("09   9P/3W/L")
  40.           ("10   7P/7W/M")
  41.           ("11   7P/5W/L")
  42.           ("12   7P/3W/L")
  43. )
  44.  (default 3)
  45.  (help "\n The first number is the point size of the font.\n"
  46.        " The second number is the width of a standard letter.\n"
  47.        " The end letter refers to the weight of the font.\n\n"
  48.        " The selected font will REPLACE the currently installed font.\n\n"
  49.        " The default choice is 04 which is a nine point font.")
  50. )
  51. )
  52.  
  53.  (run "delete fonts:funfont#? all >NIL:")
  54.  
  55.  (if (= @choice 0) (run "lha x -X -q fonts/01.fnt fonts:"))
  56.  (if (= @choice 0) (copyfiles (source "fonts/amirc11") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  57.  (if (= @choice 1) (run "lha x -X -q fonts/02.fnt fonts:"))
  58.  (if (= @choice 1) (copyfiles (source "fonts/amirc11") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  59.  (if (= @choice 2) (run "lha x -X -q fonts/03.fnt fonts:"))
  60.  (if (= @choice 2) (copyfiles (source "fonts/amirc11") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  61.  (if (= @choice 3) (run "lha x -X -q fonts/04.fnt fonts:"))
  62.  (if (= @choice 3) (copyfiles (source "fonts/amirc9") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  63.  (if (= @choice 4) (run "lha x -X -q fonts/05.fnt fonts:"))
  64.  (if (= @choice 4) (copyfiles (source "fonts/amirc9") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  65.  (if (= @choice 5) (run "lha x -X -q fonts/06.fnt fonts:"))
  66.  (if (= @choice 5) (copyfiles (source "fonts/amirc9") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  67.  (if (= @choice 6) (run "lha x -X -q fonts/07.fnt fonts:"))
  68.  (if (= @choice 6) (copyfiles (source "fonts/amirc9") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  69.  (if (= @choice 7) (run "lha x -X -q fonts/08.fnt fonts:"))
  70.  (if (= @choice 7) (copyfiles (source "fonts/amirc9") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  71.  (if (= @choice 8) (run "lha x -X -q fonts/09.fnt fonts:"))
  72.  (if (= @choice 8) (copyfiles (source "fonts/amirc9") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  73.  (if (= @choice 9) (run "lha x -X -q fonts/10.fnt fonts:"))
  74.  (if (= @choice 9) (copyfiles (source "fonts/amirc7") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  75.  (if (= @choice 10) (run "lha x -X -q fonts/11.fnt fonts:"))
  76.  (if (= @choice 10) (copyfiles (source "fonts/amirc7") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  77.  (if (= @choice 11) (run "lha x -X -q fonts/12.fnt fonts:"))
  78.  (if (= @choice 11) (copyfiles (source "fonts/amirc7") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  79.  
  80. ))
  81.  
  82. ;***********************************************************************
  83.  
  84. (procedure end (
  85.  (set #speak "-w1 font installed.")
  86.  (talk)
  87.  (exit "\n\nFont has been successfuly installed."
  88.        "\n\nPLEASE REBOOT SYSTEM"
  89.  (quiet))
  90. ))
  91.  
  92. ;**************************************************************************
  93.  
  94. (procedure talk (
  95.  (if (exists "C:talk")
  96.   (run "run >NIL: <NIL: talk" #speak)
  97.  
  98. )
  99. ))
  100.  
  101. ;**************************************************************************
  102.  
  103. ;SEQUENCE
  104. ;********
  105.  
  106.  
  107. (preview)
  108.  
  109. (font)
  110.  
  111. (end)
  112.